home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / source / ncsat.cpt / Telnet2.5 final / tcpip / macutil.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-04-03  |  11.2 KB  |  553 lines
  1. /*  MACUTIL.C
  2. *   Utilities for the network library that are Macintosh specific
  3. ****************************************************************************
  4. *                                                                          *
  5. *      part of:                                                            *
  6. *      TCP/UDP/ICMP/IP Network kernel for NCSA Telnet                      *
  7. *      by Tim Krauskopf                                                    *
  8. *                                                                          *
  9. *      National Center for Supercomputing Applications                     *
  10. *      152 Computing Applications Building                                 *
  11. *      605 E. Springfield Ave.                                             *
  12. *      Champaign, IL  61820                                                *
  13. *                                                                          *
  14. *                                                                          *
  15. ****************************************************************************
  16. */
  17. #include <stdio.h>
  18. #include <string.h>
  19.  
  20. #ifdef UNDERNOCIRCUMSTANCES
  21. #include "protocol.h"
  22. #include "data.h"
  23. #endif
  24.  
  25. #ifdef MPW
  26. #include "mpw.h"
  27. #endif
  28.  
  29. #include <Dialogs.h>
  30. #include <Files.h>
  31. #include <Types.h>
  32. #include <AppleTalk.h>
  33. #include <Events.h>
  34. #include <Errors.h>
  35. #include <OSutils.h>
  36. #include <Memory.h>
  37. #include <Strings.h>
  38.  
  39. #include "configrec.h"
  40. #include "maclook.h"
  41.  
  42. /* Some globals for file lookup */
  43. int defaultv;
  44.  
  45. ParamBlockRec FLpb;
  46. CInfoPBRec HFLpb, tHFLpb;
  47. char FileName[256], FileTemplate[256];
  48. extern int * DirTree;
  49. char *iobufptr=0L,*iobuf=0L,*iobufmax=0L;
  50. int iobufsize,lastcr;
  51.  
  52. int getWDnum()
  53.   /* returns reference of current default volume or working directory */
  54.   {
  55.     ParamBlockRec pb;
  56.  
  57.     pb.ioParam.ioNamePtr = 0L;
  58.     PBGetVol(&pb, FALSE);    /* see Tech Note 140 for implications of this */
  59.     return(pb.ioParam.ioVRefNum);
  60.   }
  61.  
  62. Str255 *getVname()
  63. {
  64.     WDPBRec pb;
  65.     char *temp;
  66.  
  67.     temp=NewPtr(256);
  68.  
  69.     pb.ioNamePtr=temp;
  70.     PBGetVol((ParmBlkPtr) &pb,FALSE);
  71.     (*temp)++;
  72.     temp[*temp]=':';
  73.     temp[*temp+1]=0;
  74.     return        /* This proc returns the Vol reference */
  75.         (Str255 *) temp;
  76. }
  77.  
  78. Str255 *getWDname()
  79. {
  80.     WDPBRec pb;
  81.     CInfoPBRec cpb;
  82.     char tempst[100],*wdtemp,*wdout,*start,*store,*trav;
  83.     int i,j;
  84.  
  85.     if (!isHFS()) return(getVname()); /* if not HFS then only volume exists */
  86.  
  87.     wdout=NewPtr(256);
  88.     wdtemp=NewPtr(256);
  89.     setmem(wdout, 256, 0);                    /* BYU 2.4.18 */
  90.  
  91.     sprintf(tempst,"ioNamePtr = %lx",wdout);
  92.     putln (tempst);
  93.  
  94.     pb.ioNamePtr=wdout;
  95.     PBHGetVol(&pb,FALSE);
  96.  
  97. #ifdef WANNACOLON
  98.     (*wdout)++;
  99.     wdout[*wdout]=':';
  100. #endif WANNACOLON
  101.  
  102.     cpb.dirInfo.ioCompletion=0L;
  103.     cpb.dirInfo.ioVRefNum=pb.ioWDVRefNum;
  104.     cpb.dirInfo.ioDrDirID=pb.ioWDDirID;
  105.     trav=wdtemp;
  106.     DirTree[ (j=0) ]=pb.ioVRefNum;
  107.  
  108.     while(cpb.dirInfo.ioDrDirID!=0) {
  109.         cpb.hFileInfo.ioNamePtr=trav;
  110.         cpb.hFileInfo.ioFDirIndex=-1;
  111.         if (PBGetCatInfo(&cpb,FALSE)!=0)  {cpb.dirInfo.ioDrDirID=0; break;}
  112.         if (*trav==0) {cpb.dirInfo.ioDrDirID=0;break;}
  113.         i=*trav; *trav=0; start=trav+1;
  114.         trav+=i+1; *trav=0;
  115.         DirTree[j++]=cpb.dirInfo.ioDrDirID;
  116.         cpb.dirInfo.ioDrDirID=cpb.dirInfo.ioDrParID;
  117.         }
  118.  
  119.     *wdtemp=0;
  120.     store=wdout+*wdout+1;
  121.     if (trav-wdtemp) *wdout=(trav-wdtemp);
  122.     if (trav!=wdtemp) start=trav-1; else start=wdtemp;
  123.  
  124.     if (start!=wdtemp) {
  125.         while(*start) start--;        /* Go to beginning of string */
  126.         if (start!=wdtemp) start--;
  127.         }
  128.  
  129.     while(start!=wdtemp) {
  130.         while(*start) start--;        /* Go to beginning of string */
  131.         trav=start+1; *store='/';    /* Ready to move directory name */
  132.         store++;
  133.         while (*trav) {*store=*trav; store++;trav++; } /* store it */
  134.         if (start!=wdtemp) start --;
  135.         *store=0;
  136.         }
  137.     DisposPtr(wdtemp);
  138.     return((Str255 *) wdout);
  139. }
  140.  
  141. setWDnum( num)
  142. int num;
  143. {
  144.     WDPBRec pb;
  145.  
  146.     pb.ioNamePtr=0L; 
  147.     pb.ioVRefNum=num;
  148.     pb.ioWDDirID=0L;
  149.     PBHSetVol(&pb,FALSE);
  150. }
  151.  
  152. /*
  153. *  setSFdir
  154. *  trick to set up the working directory from the last SFgetfile. TK
  155. */
  156.  
  157. #define SFSaveDisk  0x214
  158. #define CurDirStore 0x398
  159.  
  160. void setSFdir
  161.   (
  162.     void
  163.   )
  164. {
  165.     WDPBRec pb;
  166.  
  167.     if (!isHFS()) {
  168.         defaultv = - (* (short *) SFSaveDisk);
  169.         return;
  170.     }
  171.     
  172.     pb.ioNamePtr=0L; 
  173.     pb.ioWDProcID=0L; 
  174.     pb.ioVRefNum=  - (* (short *) SFSaveDisk);        /* saved from last SF package call */
  175.     pb.ioWDDirID= (* (long *) CurDirStore);            /* BYU 2.4.18 */
  176.     PBOpenWD(&pb,FALSE);
  177.     
  178.     defaultv = pb.ioVRefNum;
  179.     setvol(NULL, defaultv);            /* make working directory */
  180.  
  181. }
  182.  
  183. setWDname( num, name)
  184. int num;
  185. Str255 *name;
  186. {
  187. #pragma unused(name)
  188.     WDPBRec pb;
  189.  
  190.     pb.ioNamePtr=0L; 
  191.     pb.ioVRefNum=num;
  192.     pb.ioWDDirID=0L;
  193.     PBHSetVol(&pb,FALSE);
  194. }
  195.  
  196. int wccheck(file,template)    /* BYU - routine now returns (int) for recursion. */
  197. char *template,*file;
  198. {
  199.     while(*template) {
  200.         if (*template=='*') {
  201.             template++;
  202.             if (*template) {
  203.                 while((*file) && !wccheck(file,template)) file++;    /* BYU */
  204.                 if ((*file)==0) return(0);
  205.                 }
  206.             else return(1);
  207.             continue;
  208.             }
  209.         else
  210.             if ((*template!='?') && (*template!=*file)) return(0);
  211.         template++;file++;
  212.         }
  213.     if (*file)            /* BYU */
  214.         return(0);        /* BYU */
  215.     else                /* BYU */
  216.         return(1);        /* BYU */
  217. }
  218.  
  219. /**********************************************************************/
  220. /*
  221. *   Find directory name -- return a code that indicates whether the
  222. *   directory exists or not.
  223. *   0 = dir name ok
  224. *   -1 = error
  225. *   > 0 = dos error code, no dir by this name
  226. *
  227. *   Accept certain unix conventions, like '/' for separator
  228. *
  229. *   Also, append a '\' to the name before returning
  230. * 
  231. *  Note:  There must be enough room in the string to append the '\'
  232. */
  233.  
  234. direxist(dirname)
  235.     char dirname[];
  236.     {
  237. #pragma unused(dirname)
  238.     return(-1);
  239.     }
  240.  
  241. /**********************************************************************/
  242. /* firstname
  243. *  find the first name in the given directory which matches the wildcard
  244. *  specification
  245. *
  246. *  must NewPtr enough space for the path plus a full filename
  247. *
  248. *  expand '*' (unix) to '*.*' (dos)
  249. */
  250. char *firstname(spec)
  251. char *spec;
  252. {
  253.     char *loader;
  254.     int HFS;
  255.  
  256.     setvol(0L, defaultv);                            /* Go to default Directory */
  257.  
  258.     if ( (HFS=isHFS()) )
  259.         PBHGetVol((WDPBPtr) &HFLpb, FALSE);
  260.     else
  261.          PBGetVol(&FLpb,FALSE);
  262.  
  263.     loader=FileTemplate;
  264.     while(*loader++=*spec++);
  265.     putln(spec);
  266.     putln(FileTemplate);
  267.     if ( HFS) {
  268.         HFLpb.hFileInfo.ioCompletion=0;
  269.         HFLpb.hFileInfo.ioNamePtr=FileName;
  270.         HFLpb.hFileInfo.ioFVersNum=0;
  271.         HFLpb.hFileInfo.ioFDirIndex=1;
  272.         tHFLpb=HFLpb;
  273.         if (PBGetCatInfo(&HFLpb,FALSE)!=0)  return(0L);
  274.         }
  275.     else {
  276.         FLpb.fileParam.ioCompletion=0;
  277.         FLpb.fileParam.ioNamePtr=FileName;
  278.         FLpb.fileParam.ioFVersNum=0;
  279.         FLpb.fileParam.ioFDirIndex=1;
  280.         if(PBGetFInfo(&FLpb,FALSE)!=0) return(0L);
  281.         }
  282.     FileName[FileName[0]+1]=0;
  283.     while(!wccheck(&FileName[1],FileTemplate)) {
  284.         if (HFS) {
  285.             tHFLpb.hFileInfo.ioFDirIndex++;
  286.             HFLpb=tHFLpb;
  287.             if (PBGetCatInfo(&HFLpb,FALSE)!=0)  return(0L);
  288.             }
  289.         else {
  290.             FLpb.fileParam.ioFDirIndex++;
  291.             if(PBGetFInfo(&FLpb,FALSE)!=0) return(0L);
  292.             }
  293.         FileName[FileName[0]+1]=0;
  294.         }
  295.  
  296.     if (isHFS() && (HFLpb.hFileInfo.ioFlAttrib & 16))  {
  297.         FileName[++FileName[0]]='/';
  298.         FileName[FileName[0]+1]=0;
  299.         }
  300.  
  301.     return(&FileName[1]);
  302. }
  303.  
  304. /**********************************************************************/
  305. /* nextname
  306. *  modify the path spec to contain the next file name in the
  307. *  sequence as given by DOS
  308. *
  309. *  if at the end of the sequence, return NULL
  310. */
  311. char *nextname()
  312. {
  313.     if (isHFS() ) {
  314.         tHFLpb.hFileInfo.ioFDirIndex++;
  315.         HFLpb=tHFLpb;
  316.         if (HFLpb.hFileInfo.ioNamePtr!=FileName) return(0L);
  317.         if (PBGetCatInfo(&HFLpb,FALSE)!=0)  return(0L);
  318.         FileName[FileName[0]+1]=0;
  319.         while(!wccheck(&FileName[1],FileTemplate)) {
  320.             putln(&FileName[1]);
  321.             tHFLpb.hFileInfo.ioFDirIndex++;
  322.             HFLpb=tHFLpb;
  323.             if (PBGetCatInfo(&HFLpb,FALSE)!=0)  return(0L);
  324.             FileName[FileName[0]+1]=0;
  325.             }
  326.         }
  327.     else {
  328.         if (FLpb.fileParam.ioNamePtr!=FileName) return(0L);
  329.         FLpb.fileParam.ioFDirIndex++;
  330.         if(PBGetFInfo(&FLpb,FALSE)!=0) return(0L);
  331.         FileName[FileName[0]+1]=0;
  332.         while(!wccheck(&FileName[1],FileTemplate)) {
  333.             FLpb.fileParam.ioFDirIndex++;
  334.             if(PBGetFInfo(&FLpb,FALSE)!=0) return(0L);
  335.             FileName[FileName[0]+1]=0;
  336.             }
  337.         }
  338.  
  339.     if (isHFS() && (HFLpb.hFileInfo.ioFlAttrib & 16))  {
  340.         FileName[++FileName[0]]='/';
  341.         FileName[FileName[0]+1]=0;
  342.         }
  343.  
  344.     return(&FileName[1]);
  345. }
  346.  
  347.  
  348. /************************************************************************/
  349. /* userabort
  350. *  check to see if the user wants to abort
  351. *  For the PC, just see if the user has pressed ESC
  352. *  return true if the user wants to abort
  353. */
  354. int userabort
  355.   (
  356.     void
  357.   )
  358. {
  359.     EventRecord theEvent;
  360.  
  361.     while (GetNextEvent(24,&theEvent)) {
  362.         if ((theEvent.modifiers & cmdKey) &&
  363.             (theEvent.message & 0xff) =='.') 
  364.             return(-1);
  365.         }
  366.     return(0);
  367. }
  368.  
  369. void dopwd
  370.   (
  371.     char *where,
  372.     int howmuch
  373.   )
  374. {
  375.     char *temp;
  376.     int i;
  377.  
  378.     if (howmuch<255) return/*(-1)*/;
  379.     setvol(0L, defaultv);                            /* Go to default Directory */
  380.     temp = (char *) getWDname();
  381.     where[0]='/';
  382.     for( i=1;i<=temp[0];i++) where[i]=temp[i];
  383.     where[temp[0]]=0;
  384.     putln(&temp[1]);
  385.     DisposPtr(temp);
  386.     putln(where);
  387. }
  388.  
  389.  
  390. int chgdir
  391.   (
  392.     char *modifier
  393.   )
  394. {
  395.     WDPBRec pb;
  396.     char tempst[256], *nSlash, *start;
  397.     int i=0, j=0;
  398.  
  399.     if (! isHFS()) return(-1);
  400.  
  401.     setvol(0L, defaultv);                            /* Go to default Directory */
  402.  
  403.     start = (char *) getWDname();
  404.     DisposPtr(start);
  405.  
  406.     start=modifier;
  407.     tempst[0]=':';
  408.  
  409.     putln(start);
  410.  
  411.     if ( strcmp("..",modifier)==0) {
  412.         modifier[0]=0;
  413.         j++;
  414.         }
  415.     else
  416.     while ( (nSlash = index(modifier,'/') ) !=0L) {
  417.         if (( (nSlash -modifier) ==2) && (*modifier=='.') && (*(modifier+1) =='.') ) {
  418.             modifier +=3L;
  419.             start=modifier;
  420.             j++;
  421.             }
  422.         else {
  423.             *nSlash=':';
  424.             modifier=nSlash+1L;
  425.             }
  426.         }
  427.  
  428.     if ( *start==':') {
  429.         strcpy( tempst, start+1L);
  430.         j= strlen( tempst);
  431.         if (tempst[j-1] !=':') {
  432.             tempst[j] = ':';
  433.             tempst[j+1]='\000';
  434.             }
  435.         }
  436.     else
  437.         strcpy( tempst+1L, start);
  438.  
  439.     putln(tempst);
  440.  
  441.     pb.ioNamePtr=ctop(tempst);
  442. #ifdef MPW
  443.     c2pstr(tempst);
  444. #endif
  445.     pb.ioVRefNum=0;
  446.     pb.ioWDDirID=DirTree[j];
  447.     pb.ioCompletion=0L;
  448.     pb.ioWDProcID='NCSA';
  449.  
  450.     j = PBOpenWD( &pb,0);
  451.  
  452.     if ( (j==-35) || (j==-43) ) return(1);
  453.  
  454. #ifdef OLDM
  455.     setvol(0L, (defaultv=getWDnum()) );
  456. #endif
  457.  
  458.     j = setvol(0L, (defaultv=pb.ioVRefNum));
  459.  
  460.     if ( (j==-35) || (j==-43) ) return(1);
  461.  
  462.     return(0);
  463. }
  464.  
  465. /*
  466.  *
  467.  */
  468.  
  469. int Scolorset
  470.   (
  471.     unsigned int *ip,
  472.     char *s
  473.   )
  474. {
  475.     if (3==sscanf(s,"{%d,%d,%d}", &ip[0], &ip[1],&ip[2]) )
  476.         return(1);
  477.     return(0);
  478. }
  479.  
  480. long time(x)
  481. long x;
  482. {
  483. #pragma unused(x)
  484.     return( TickCount()/60);
  485. }
  486.  
  487. int memcmp( a, b, len)
  488. char *a, *b;
  489. int len;
  490. {
  491.     while (len --)
  492.         if (*a!=*b) 
  493.             return(1);
  494.     return(0);
  495. }
  496.  
  497. /**************************************************************************/
  498. /*  defdir and sysdir
  499. *   Use to change to and from the system folder directory.
  500. */
  501. #define CurrentVersion 1            /* Last known SysEnvirons version */
  502.  
  503. void sysdir
  504.   (
  505.     void
  506.   )
  507. {
  508.     int err;
  509.     char s[50];
  510.     SysEnvRec theWorld;                /* System Environment record */
  511.     
  512.     err = SysEnvirons(CurrentVersion, &theWorld);
  513.     if (err == envVersTooBig) {
  514.         /* should post a message saying we need to be updated */
  515.         putln("SysEnvirons out of date - macutil.c");
  516.     }
  517.     if (err != noErr)                /* possibly not available assume nothing here! */
  518.         return;
  519.  
  520.     (void) setvol(NULL, theWorld.sysVRefNum);    /* change default volume */
  521.     sprintf(s,"set sysdir: %d",theWorld.sysVRefNum);
  522.     putln(s);
  523.     
  524. }
  525.  
  526. int setmydir
  527.   (
  528.     void
  529.   )
  530. {
  531.     char s[50];
  532.     
  533.     (void) setvol(NULL, defaultv);
  534.     sprintf(s,"set defdir: %d",defaultv);
  535.     putln(s);
  536.     return(defaultv);
  537. }
  538.  
  539. int makemydir
  540.   (
  541.     int dir
  542.   )
  543. {
  544.     char s[50];
  545.     
  546.     defaultv = dir;
  547.     setvol(NULL, defaultv);
  548.     sprintf(s,"make dir: %d",defaultv);
  549.     putln(s);
  550.     return(defaultv);
  551.     
  552. }
  553.